home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / twars.arc / PLANLIST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  51 lines
  1.  
  2. program looksect(input,output);
  3.  
  4.  
  5. type
  6.    user = record
  7.            fa                           : string[41];
  8.            fareal                       : string[41];
  9.            fb,fc,fd,fe,ff,fg            : integer;
  10.            fh,fi,fj,fk,fl,fr,fp         : integer;
  11.            fm,fo,fq,ft,fv               : integer;
  12.            CREDITS                      : real;
  13.         end;
  14.  
  15. var
  16.  
  17.     outp      : text;
  18.     pointer   : integer;
  19.     userf     : file of user;
  20.     usert     : user;
  21.     userrec   : user;
  22.     ans       : char;
  23.     sect      : integer;
  24.     done      : boolean;
  25.     newff,
  26.     newfg,
  27.     newfo     : integer;
  28.  
  29. begin
  30.    assign(userf,'twdata.dat');
  31.    reset(userf);
  32.    assign(outp,'Planlist');
  33.    rewrite(outp);
  34.    clrscr;
  35.    done := FALSE;
  36.    sect := 1;
  37.    while sect < 1000 do
  38.    begin
  39.       seek(userf,sect+151);
  40.       read(userf,userrec);
  41.       if userrec.fo <> 0 then
  42.       begin
  43.         seek(userf,1551+userrec.fo);
  44.         read(userf,usert);
  45.         writeln(outp,'Sector # ',sect,' contains the planet# ',userrec.fo,'  ',usert.fa);
  46.       end;
  47.     sect := sect + 1;
  48.    end;
  49. close(userf);
  50. close(outp);
  51. end.